home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / autofx / adjust_rgb.ifx.pre < prev    next >
Text File  |  2004-08-03  |  603b  |  27 lines
  1. /*
  2.  *    Adjust_RGB.ifx.pre
  3.  *    PreScript for adjusting Red, Green, and Blue.
  4.  *    Saves the parameters into the ImpAdjustRGBParameters
  5.  *    clip variable.
  6.  *
  7.  *    by Steve Tibbett
  8.  */
  9.  
  10. options results
  11.  
  12. Defaults=GetClip("ImpAdjustRGBParameters"arg(1));
  13. if (Defaults="") then Defaults="0 0 0"
  14.  
  15. Parse Var Defaults Red Green Blue
  16.  
  17. Gadget.1 = 'I/100/16/Red:/'Red
  18. Gadget.2 = 'I/100/30/Green:/'Green
  19. Gadget.3 = 'I/100/44/Blue:/'Blue
  20.  
  21. ComplexRequest '"RGB Adjustments (-127 to 127)"' 3 Gadget 300 80
  22. IF rc ~= 0 THEN return 10
  23.  
  24. Defaults=Result.1 Result.2 Result.3
  25. call SetClip("ImpAdjustRGBParameters"arg(1), Defaults);
  26.  
  27.